/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Util / Sd-Sm / SendPS / SendPS.rsrc / POST_320

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 00 2f 69 6e 2e 7b 37 | 32 20 6d 75 6c 7d 64 65 |../in.{7|2 mul}de|
|00000010| 66 0a 2f 6c 69 6e 65 20 | 35 31 32 20 73 74 72 69 |f./line |512 stri|
|00000020| 6e 67 20 64 65 66 0a 2f | 62 75 66 66 20 31 30 20 |ng def./|buff 10 |
|00000030| 73 74 72 69 6e 67 20 64 | 65 66 0a 2f 43 52 20 31 |string d|ef./CR 1|
|00000040| 33 20 64 65 66 2f 53 50 | 20 33 32 20 64 65 66 2f |3 def/SP| 32 def/|
|00000050| 54 41 42 20 39 20 64 65 | 66 0a 2f 64 6f 6e 65 20 |TAB 9 de|f./done |
|00000060| 66 61 6c 73 65 20 64 65 | 66 0a 2f 63 70 75 74 7b |false de|f./cput{|
|00000070| 6c 62 66 20 65 78 63 68 | 20 69 64 78 20 65 78 63 |lbf exch| idx exc|
|00000080| 68 20 70 75 74 20 2f 69 | 64 78 20 69 64 78 20 31 |h put /i|dx idx 1|
|00000090| 20 61 64 64 20 64 65 66 | 7d 64 65 66 0a 2f 72 65 | add def|}def./re|
|000000a0| 61 64 6c 69 6e 65 7b 0a | 2f 6c 62 66 20 65 78 63 |adline{.|/lbf exc|
|000000b0| 68 20 64 65 66 0a 2f 69 | 64 78 20 30 20 64 65 66 |h def./i|dx 0 def|
|000000c0| 0a 7b 64 75 70 20 72 65 | 61 64 0a 20 20 7b 64 75 |.{dup re|ad.  {du|
|000000d0| 70 20 43 52 20 6e 65 0a | 20 20 20 7b 2f 63 68 20 |p CR ne.|   {/ch |
|000000e0| 65 78 63 68 20 64 65 66 | 20 63 68 20 54 41 42 20 |exch def| ch TAB |
|000000f0| 65 71 7b 38 7b 53 50 20 | 63 70 75 74 7d 72 65 70 |eq{8{SP |cput}rep|
|00000100| 65 61 74 7d 7b 63 68 20 | 63 70 75 74 7d 69 66 65 |eat}{ch |cput}ife|
|00000110| 6c 73 65 7d 0a 20 20 20 | 7b 70 6f 70 20 70 6f 70 |lse}.   |{pop pop|
|00000120| 20 6c 62 66 20 6c 65 6e | 67 74 68 20 30 20 67 74 | lbf len|gth 0 gt|
|00000130| 20 0a 20 20 20 20 7b 6c | 62 66 20 30 20 69 64 78 | .    {l|bf 0 idx|
|00000140| 20 67 65 74 69 6e 74 65 | 72 76 61 6c 20 74 72 75 | getinte|rval tru|
|00000150| 65 7d 0a 20 20 20 20 7b | 66 61 6c 73 65 7d 20 69 |e}.    {|false} i|
|00000160| 66 65 6c 73 65 20 65 78 | 69 74 0a 20 20 20 7d 69 |felse ex|it.   }i|
|00000170| 66 65 6c 73 65 0a 20 20 | 7d 7b 70 6f 70 20 6c 62 |felse.  |}{pop lb|
|00000180| 66 20 6c 65 6e 67 74 68 | 20 30 20 67 74 20 64 6f |f length| 0 gt do|
|00000190| 6e 65 20 6e 6f 74 20 61 | 6e 64 20 0a 20 20 20 20 |ne not a|nd .    |
|000001a0| 7b 6c 62 66 20 30 20 69 | 64 78 20 67 65 74 69 6e |{lbf 0 i|dx getin|
|000001b0| 74 65 72 76 61 6c 20 74 | 72 75 65 7d 0a 20 20 20 |terval t|rue}.   |
|000001c0| 20 7b 66 61 6c 73 65 7d | 20 69 66 65 6c 73 65 20 | {false}| ifelse |
|000001d0| 2f 64 6f 6e 65 20 74 72 | 75 65 20 64 65 66 20 65 |/done tr|ue def e|
|000001e0| 78 69 74 0a 20 20 7d 69 | 66 65 6c 73 65 0a 7d 6c |xit.  }i|felse.}l|
|000001f0| 6f 6f 70 7d 62 69 6e 64 | 20 64 65 66 0a          |oop}bind| def.   |
+--------+-------------------------+-------------------------+--------+--------+